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ae Lisa 800 -- BOOK Drive Patch for MacWorks 3.0 # 
: Sisal siicceleisidetidodiuleataiiaiaiie 
# : 
jee Author: C. Luaszewski 
ye —sdUpdated: «02/02/88 - Lan H. Abel 
peo Merson if 
# 
PTET err eter eer E Terre Tr ett Terre etc rettt Te 
$# Copyright (C) 1988 / Ian H. Abel # 
fRE RANKER RAR R ARES ERASE ERE RARER ERE K ERE REE EER ERE 
INCLUDE Traps.0 finclude system & toolbox traps 
TNELUDE ToolEgqu.t dinclude toolbox equates 
INCLUDE SysEqu.D jInclude system equates 
INCLUDE FSEqu.0 iinclude file system equates 
INCLUDE PackMacs.Txt yinclude package macros 
INCLUDE TSDEqu. Txt zInclude PSM file equates 
STRING FORMAT 3 iLength precedes string 
DEF Lisagld, Junk Finder entry point 
MDEF RetNumO ,RetNuml :POMPile required globais 
#REF Ini tMors,LineQut 3PSM routines 
XREF Dpenlingy,OpenDlog 
REF NopmText 
MUBASE EGU $1 E6934 rBase of patch wo Lisabug 
* This code makes patches to MacWorks v3.0 to allow the use of an SO0K drive 
# with Sun Remarketing’s HPS onthe Lisa-2/Mac XL. The code ie set up as an 
* executable program which directly modifies a 3- or li-megabyte widget. The 
y¥ Machiorks operating system is really an extensively mocified Apple ‘monitor’ 
;# operating system, whose filesystem structure can be figured cut from my 
ye notes or from mot-too-extensive hacking. This patch makes modifications to 
“y® the file “DRIVERS.OBU’ on the MacWorks volume. It first copies the files to 
;* a location farther out so that there is space to append cede to it. Then 
$8 the patch is appended and the monitor directory is updated. The patch is 
y® executed at startup time only, assuming that there is a $02 value at $FCCO15, 
p28 which indicates that there is a two-sided drive attached. 
2% : 
3 
y# The patches are as follows: 
phen----- cata a aietetenaiaiaaeettaeatataeta aetatatatamaiataaadametatamaeaetatatetameneeemeeetenenetetanetetetetete tetas € 
Hed HOxCFFié6 4708 -> é00¢ The 6504 code returns a “$22° instead 
Hed of a “S0E° at SOGFCCOLS (8% drive 
it type field). This removes the error 
5% branch which sets up error $FFBE {-78) 
4 try ta read second side on a 400K drive 
pkeoeon- s tatectatasiairiateaieeeateteetetaeton ata taeateatatetassaaanedaceanaitatataameatatetetenatetetetemmentenmanaenenemmetetemenetae # 
Ha BOQQOCFR xx --> FF Update drive queue te reflect two-sided 
% "disk ‘orive. 
* 


a reer ert eer dT 
OK OK OK oo 


MuBASE*HFSCalc Routine for. calculating eide/tracksector 
for HFS volumes: : 
#* Routine must verity that @FCCRIS = 
$02 and S03BC=$FFFE otherwise executes 
- MOVE. #80640,01 ee 
ae LSR.W 31,01 
ee IMP 200xCFFDE 
Tf two-side check is successful, cale- 
ulate side/track/sector with Al & Al 
_ preserved and absolute sector number’ 
ih DO, Patch routine ends with: 
L Side (0 or 1) 
Track 
‘ Sector i 
and exits with a copy of the code at 


co 
fe. f, 
Hak tt 


ee 


Ce er ec 


# $00xD003E. 
Keer ners arene ee en etn Sen ee ret mtn snide eee cm ane # 
%  OOLCFFDS 32300 6406249 -)> 
ee (MP HFSCalc Intercept normal calculation routine 
Grrr rrr nr re rrr nn a mea a a a a a ean ¥ 
ed MABASE+ Ini tPtchi Patch that ignores control calls of value 
ea #15 to the Sony driver & forces a nonzero 
pe. return value in DO, 
per nn a ee ¥ ; 
7% ooaote26 -> IMP InitPtch intercept normal Control codef low 
Phnom nnn rt i ne # 
:# MIBASE# Ini tPtch? Patch that adjusts internal HFS flag 
:# and drive queue volume size according 
r* to the user’s selection of single- or’ 
red double-sided format. For single-sided 
# formats, the #sides byte at $FCCOIS is set 
:* to t to get normal 400K format time. 
Fie tates aiateatetatnieteeietaatettte atte a ra # 
* 00401826 = -) UMP InitPtch2 Intercept normal PACK2 control flow 
Fi, eects ahem aes aeei iar iee eae eieeeteaeeeteeeteenemenntaneaten # 
had _ -MBIBASE+SidePtch Routine to modify drive queue entry for 
;* fleppy drive when HFS disk is inserted 
* (byte just before the queue entry should 
* be -1 for HFS, 0 for MPS) 
jE Sener ern nn etn cree sentence renee ee ctesim emcees memen * 
Hal OGIBF426 9 CMPI.W #84244 O° Az)-> : 
He UMP SidePtch Intercept normal comparison routine 
Fr tr rrr rrr rrr rc erence nnn nen nn nnn ann nn nnn enn nn nn een nnn * 
y% Q000039E -} ptr to HFSDefaults Set up HFS Defaults as described in IMA 
3% for formatting 
errr errr rrr rn en men eee me ee ee a ae ee ee a * 
ee*  Initlndy -- Draw Banner Window 
s 
* . Entry None 
% Exit Banner Window Drawn & Handle in TempAtAt) 
* Uses AG ,Al,Az2 
& Calls OpenWndw,LineGut 
* Macros None 
Fy 
HEE 
Inithinds LEA Lagol tms Ag iStore item handle 

LEA LitmHnd! ,Ai 

MOVE.L Al, ¢AL? 

LEA Logolindw Ag Get Dialeg Info. Block 

SUBA.L Al,Al iNo title 

LEA LogoSize ,Ag 

JSR OpenDl og yOpen dialog box 

MOVE.L AD, TempAtad) ySave handle 

MOVE.W) = «#3, -¢ SP) iFrame Begin Box 

MOVE. #3,-(5P) 

PenSize 

EA BeginSiz 

MOVE #-4,-(5P} 

MOVE WW #-4,-(SP) 

_InsetRect 

PEA BeginSiz 

MOVE.W ° #14,-05P) 

MOVE WW #idé,-¢5P) 

_FrameRoundRect 

LEA TitleString, AZ 

BSR LineQut 

LEA MeString,Az 

BSR LineGut 

LEA VerString,AZ 


_SetVal 


BSR LineQut 
LEA LStringl Az 
BSR. LineQut 
LEA LStringZ,AZ 
BSR LineQut 
LEA  Létrings,A2 
BSR LineQut 
LEA LString4 Az 
BSR. LineQut 
LEA LStringS,Az 
BSR LineQut 
LEA LStringd,A2 
BSR LineQut 
LEA LString?,Az 
BSR LineQut 
LEA L8tringB,A2 
BSR LineQut 
LEA LString?,AzZ 
BSR LineQut 
LEA LStringA,AzZ 
BSR LineQut 
LEA CRString,AzZ 
BSR LineGut 
LEA TSWwString,Ag 
BSR LineQut 
JSR NermText 
RTS 
DoTxthidw MOVE.L (SP)+,A3 
LEA Tex thindw,AZ 
SUBA.L AL, AL 
LEA TextSize Aa 
J5R OpenWn dy 
MOVE.L AQ,-(SP) 
JMP CAR) 
y# Entry Point # 
$ERAEAR HARE RARE 
LisaBid = SUB.L AZ ,AzZ 
JSR ini tHgrs 
+% 
i* Put a routine here to Kill all low-memory 
ye eb 
MOVE.L RomBase ,A0 
CMPI.B HEFF ,9CA0) 
BEG Lisal 
LEA LisaErr ,AZ 
: BRA Bad 
;e#eChange to BEG 
Ligal CMPI.W | #SFFFF FSFCBLen 
BNE Lisaz 
LEA HFSErr ,AZ 
‘ BRA Bad 
peeeChange to FFFB 
Lisad MOVE.L #8544 ,Al 
CLRLL iztald 
Geel 
CHP.W HEFFFE, 24(A0) 
BEG Lisad 
LEA =—s—sséRunErr Az 
BRA séBad ~~ 
eT 
‘GR 1800) 
MOVE.W = HSFFFE,22¢A0) 


yPlot strings 


pDisplay bullding winday 


yPush handie on stack 
yBack to caller 


yo resume routine 
pSetup managers 


vectors 


qCheck machine type 
hee if ROM version 
pYes, branch 

yDo Lisa error 


is BFF 


ySee if HFS Fresent 
yNope, branch 


yDo HFS present error 


}Find default volume 


yMust be floppy drive 


70K so branch 


yDe one run hard disk error 


jTry to mount the HD 


tigaa 
Lisad 


Bad 


Badi 


Bad2 


Cancel 


Lisaé 


isan 


TS? 


BEQ 
LEAS 

BRA 

BSR 

CLR.L 

PEA TempB(A5) 

_ModalDialog - 

CMPI Hi ,TempB(AS) 
BEG Cancel 
CMFI #2 ,TempBtAs? 
BNE Lisad 

BRA Lisaé — 

MOVE .L #210000 
_NewPtr 

TST bd Do 

BNE ‘Bad? 

LEA Badi ,Al 

EXG AO ,Al 

MOVE.L #Cancel-Badi ,00 
_BlockMove 

MOVE.L  . AL,Ad 

MOVE.L ScrnBase ,AQ 
LEA Ini thindw,Al 
MOVE.L #HFSCal cEnd-Ini thindw, Dd 
MOVE.L = AL,D? 

LEA Tex thindw,A3 
MOVE.L 2 A3,Dé6 

LEA TextSize,A3 
MOVE.L 43,05 

JMP tA4d 
_BlockMave 

MOVE .L B? AS 

MOVE.L AR, Ad 

ADD. HLineQut-Ini thindw,Ad 
ADD.L HOpenWnrdw-Ini tndw,A3 
MOVE.L AZ, -(SP) 
MOVE. L Dé,Az 

SUBA.L AL, Al 

MOVE.L 05,00 

JSR tA3) 

MOVE.L (SP)+ AZ 
MOVE.L -AQ,-(SF) 
MOVE .W #15,-¢5F) 

_SysBeep 

JSR tad) 

MOVE.L #300 ,A0 
_Delay 

_DisposWindcw 

MOVE.L $0002,A0 

JMP tag) 

MOVEG #1, D? 

~ RTS 

MOVE.L TempAtas) ,-(SP) 
_DisposDial ag 

MOVE.L #$44000 00 
_NewPtr 

TST .W 0 

BEG Lisa? 

LEA MemErr ,AzZ 
BRA Bad 

MOVE.L AD, AG ; 
JSR DoTx ths 


;8ranch if OK 
700 no run hard disk error 


sAnd the banner window 
iNo filter proc 

ySpace for result 
sHandle events 

sGet it 

;Skip bad exit 

sAsKed for Install 
sRequest space for Bad 
gShould work, but check it 
jLoad address 


yExchange them 
yMove this routine only 


Lisagl@ with screen 


pCover 


yCalculate locations 


jG0 away and Kill all thie 


;Display building window 


yPush handle 
iBeep 


on stack 


jWait 2 seconds 


jBig Bang Boom Crash 
:G0 to finder 


iFush handle 


tLoad all of Macworks 
willocate space te hold it 
Check for error 


:Do no memory error here 
yPut away a copy 
iMake window 


of this routine 


of two routines 


from widget 


Lisa? 


Eero” 
_-EreNsy 


LEA InstText Az 
JSR. Linedut 


MOVE «S344, 40 
CLR.L 1 2¢A0) 


MOVE .W #4, 22¢A0) 
MOVE. HEFFFE ,24(A0) 
MOVE #E0009 ,26(A0) 
CLR Zeal? 
Control 

MOVE #9344 ,A0 
MOVE.L © Ad, 32(A0) 
—MOVE.L #44000 ,34(A0} 
MOVE.W = #1,44¢A0) 
MOVE.L #91000, 46(A0) 
_Read 

MOVE.L 4,40 
MOVE.L 4, Al 


ADD.L #$33600 ,A0 
ADD.L #833800 Al 
MOVE.L #EZE000 , D0 
_BlockMove 

MOVE.L Ad, Al 

ADD.L #351200 ,Al 
ADD .W H$300 ,S32(A1) 
LEA Ini tB00 Ad 
ADD.L #E22FE Al 


MOVE.L #Ini tEnd-Ini t800+820 D0 
CMP (AG)+  fALD+ 
BNE Lisab 
_Disposhlindow 

LEA TwiceErr Az 
BRA Bad 

SUBR #4400 

SURG 44,41 
_BlackMove 

MOVE.L #14,00 

LEA DirPos AG 
MOVE Wl (AQ+ D1 
ADD. #1 ,(A4,D1) 
DBF Bo Lisa? 
MOVE.L ScrnBase DZ 


AND.L --#$00700000,D2 
MOVE.L Ad, Al 

ADD.L —-#$34E4A, Al 
MOVE.W = -#$6008,(A1) 
MOVE.L Ad Al 

ADD:L HS 2C3EC, Al 


MONE JU HEGEF? CALt 
MOVE.L HS000E6938 Al 
ADDL 02,40 

MOVE.L AG, CAL) 

MOVE #344 Al 
MOVE.L Ad, 32tAd) 
MOVE.L #64000, 56(A0) 
MOVE .U #1,44(A0) 
MOVE.L #81000 ,46(A0) 
_Hrite 
_BisposWindow 

MOVE.L A4,AG 
_DisposFtr 

LEA DoneText Az 


BRA Bad 


, _debugge r 


gSet Macworks up toa read itself 


jwhere ta put it? 
jdhole thing 


Copy butter address 


jlocation of DRIVERS.OBJ in buffer 
yrarget location + one sector 
Move rest of disk 


Store new length 
rLocation of patch 
Target of patch 

jlength of move 

pUheck already installed 


yMedity directory 
yGet offsets to positions 


yUpdate them 


iFetch screen base 
pStrip off megabyte count 


yinstall #22 return patch 


yinstall patch #6 (GetNextEvent) 
jAddress of Init#Oo 

yAdd meq count 

rPut address 

gLoad up ta resteare code 


yFut the whole thing back 
prhrow away install window 


yFree up our memory 
Do finished window & exit 


1# Initeoo 


(PEER 
“Tnit8O0 = =MOVEM.L «= -D2/A0/A1,-(SP) ;Store registers 
MOVE.L  —-ScrnBase ,D2 yFetch screen base 
AND.L = 4800700000,02 jStrip off megabyte count 
MOVE.L #$00003738 ,A0 yInstall patch #3 in MW 
MOVE.L #E000E4ACE Al yAddress of SidePtch 
ADD.L 02,A0- 
ADO .L ~O2,Al 
MOVE.W  #E4EF9,CA0)+ sPut UMP.L instruction 
MOVE.L Al, (AQ) Put address 
MOVE.L #BC00E4208 ,A0 
MOVELL REOODESSCS Al yAddress of HFSCalc 
ADD.L b2,A0 
ADD.L 02,Al 
MOVE. #B4EFS,CAD)+ fPut JMP.L instruction 
MOVE.L Al, (AD) pPut address 
MOVE.L #$00401826,A0 
MOVE.L HSO00E6A52 Al yAddress oof InitPtch! 
ADD. L D2,41 
MOVE .i HS4EF9,(AQ)+ yPut JMP.L instruction 
MOVE. Ai, (AQ) yPut address 
MOVE.L #E00401CEE AG 
MOVELL HECOQGE6A74 Al yAddress oof InitPtch? 
ADD.L D2,Al 
MOVE.U HE4EF9, (AQD+ pPut UMP.L instruction 
MOVE LL AL, {AnD :Put address 
MOIVE.L $0304 AG Flag drive as double 
MOVE.B #$FF.-1¢A0) 
LEA HFSDefaulis,Ag yPoint Fmtbefaults 
MOVE.L AD, B039E 
MOVE. L #E0040B3E4 Al yRestore event routine 
MOVE.L HE08FS0007,(AQ9+ 
MONE .W #0100, (AG) 
MOVEM.L 9 (5P)4+,D2/A0/Al 
UMP $0040B3E4 rEack to event routine 
HFSEalc == -MOVE.L AQ ,-< SF) ;Depose Al 
CMP .W #$0C,D0 — pCheck if first track 
BMI.5 Calcd rFall thre if true 
TST.B $0B22 jfee if single or double 
BNE Calcs sBranch if double 
MOVE.W RSFFOF Di yElse fall inte old routine 
LEA Calez+2,A0 
AND.W DL,fAg? 
MOVE. ScrnBase Di iFetch screen base 
AND.L 4500700000 Di rStrip off megabyte count 
SWAP Di yPut in low word 
OR.W DL,tAg) yAdd ta jump address 
MOVE.W #5440 01 gStuff we trashed fer patch 
LSR.W #$1,D1 
MOVE. L (SP)+,A0 jRestore Al ta its throne 
ylale2 JMP S$000CFFDE Return te contro] flow 
Calc2 IMP S$000E42DE 
Ealc3 MOVE.L = (SP)+,40 
MOVE.B H#1 AQ) iFor compatibility 
MOVEM.L © AL-A4/DI-D3/D4/D7 ,-(SP) yStore registers 
LEA Sectors+z0 Ag Get addr after sector info 
a MOVE W #80440 D1 ySet up max sector count 
Calc# = MOVE.W oD, DS jDupe current sector count 


CalcS. 
Calcé 


Calc? 


InitPtch! 


IPla 


InitPtche 


IFZa 


MOVE WW 
MOVE. 
MOVE .W 
JMP 


MEVEG 
UMP 


MOVEM.L 
MOVEA.L 
[MPI 
BNE 
MOVE 
MOVE.B 
MOVEM.L 
MOVEM.L 
JSR 
BRA.S 
MOVE 
CLR.E 
MOVEM.L 
MOVEM.L 
MOVE.B 
JSR 
MOVE.B 
MOVEM.L 
MP 


| OMPILW 
—BEG.S 
EXG 


~tAG) D1 
BO, Di 
Calcd 
63,01 
#005 
#0, D4 
#0 D2 
fA) D4 * 
LiAD) Dz 
Caicé 
#104 
D2, D1 
DO, Bt 
Calcd 
D1, DO 
#1 ,02 
#1 Dz 
DO, D2 
Calc? 
#1,05 
#1,02 
D2, BO 


CSP3+ AL-A4/D1-DS/Dé/D7 - 


(SP + AG 
D5, ¢A0) 
(SP)+ AG 
D4, (A0) 
{SP)+,A0 
pO, (AQ) 
(AL) 


#$15,$1A(A0) 

IPta 

HSFFFB ,$18¢A0) 
IPta 

(A7)+ ,DS-DS/A2/A3 
#-64,D0 


#$02,D4 
00401798 


AG-Ai ,-(A7) 
$0304,Al 

#2, F10(A0} 
IPZa 

44440 ,S0C0(AL) 
HSFF $0822 
(A7)+,AQ-Al 
Di-bé,-{A7) 
(AR 

IP2b 

#8320 ,$0C¢AL> 
$0B22 

{A7)+ ,A-Al 
Di-D4é,-fA7) 
#601 ,$FCCOIS 
(A3) 

#802, $FCCOIS 
(A?)+, DI-Bé 


$401CFS 


#84244 ,$08(A2) 
HFSCal cEnd 
Ad D0 


yet next sector info 
See if in right one yet 


Nope 


Default to side @ 


Get track count 
wGet sector per track count 


yGecrement track count 
yDecrement to get right count 


yHalve sector count and de- 
pcrement sc sides work right, 
See if side one 


jFix for side sector size 
zRestore registers 

pBtart pulling off of stack 
;Put side away 


Put track away 
gPut sector away 


rEnd of patch 


pSee if HDZO call 
send branch if not 
jake sure if is Seny 


sIndicate error 


Wlontinue as usual 


pSave some regs 

jigad rive queue 

Check two-sided format 
rBranch if not 

ySet volume size to 800K 
sSet HFS flag 


gfe format 
pet volume size fo 400k 


iClear HFS flag 


ySet to single-side format 
yDe format 

yRestore double-side 

yBack to normal flow 


rRetain old check 


jlest if Ad is odd 


BIST.L 40,00 


_EXG Ad, D0 

ONE de 
_CMPI WW #94244 ,$10¢A4) 
“BNE ——sMF SC heck 


‘MOVE.B = -HSFF ,$0B22 

BRA.S . MFSCheckEnd 
-MFSCheck © CMPI.W #80207 ,$10(A4) 
ee BNE HFSCal cEnd 
OddAad CLR.B $0B22 

aoe CMPI LH #94244 ,$08(A2) 

BRAS HFSCalcEnd 
MFSCheckEnd 

CMPI.W HE4244 ,$10(A4) 
HFSCalcEnd 

RTS 


re Inite@d Constants +* 
H HESZLLASSSAKKSSLKKEKE 


HFSDefaults 
OCW $4244 
BC.L $O0080000 
DC.L $00000000 


DE.L S00000010 
DC.L S00000000 
Sectors  BC.L SOFLG0000 SiFi 60180 
eS DEL $2F1402E0 ,$3F i 20420 
BC.L $4F 100040 
InitEnd 8C.u $0000 


i® LisaboQ Constants +* 
fH RH AHR E REAR EEE REE 


Logolndw = DC.L 0 
DC.B 1,0 
OC.W 3 
BLL =i 
DC.E 0,0 
LitmHnd? DBC.L Logol tms 
*ALIGN 2 
Logoltms 0C.W H 
Logottmi DC.L Q 
DCW 260 54,290,124 
DC.B 4 
DC.E “Cancel 
“Logoltm2 DC.L i] 
DC.W 260,172,290 272 
DC.B 4 
DC.B ‘Install’ 
oc.B 0 
ALIGN 2 
‘UString! DC.W O,12, 21,110,115 
Ae oC.B “LisaBld updates 
“LUString2 = 0C.W O,12,21,110,127 
Me DC.E ‘on the hard-drive 
BC. O,12,21,110,127 
DC. “computer sce that you will 
OC.W O,12,21,110, 151 
DC.& “800K diskette drive 
OCW G,iz, 21,110,143 
DC.B ‘diskettes with Apple’‘sr 


DCW 0,12,21,110,180 


Lisa-zr 


pPut it back 
3G0 do it 
sCheck HFS 


yBranch 


if not 


ySet HFS flag 


314 MFS mount clear HFS élag 


ySet MFS flag. 
gExit without checking Ad 
One exit only 


et cond, codes correctly 


peighord 
yabSize 
pclpSize 
enxFreeFN 
pbtCipsize 


girack/SectorCount/Sector# 


jWhere to store 
Visible 

Type 

yFront window 

Ne gocaway flag 
yitem handle 


yMNumber oof items 
jHandie space 
pRectangle 

Normal button 
jlength + title 


hierarchical file 


fon heap? 


the Macklorker operating system 

or Macintosh Lr’ 
be able to use the LiSMshop 
to read and write double-sided’ 


eystem! 


LString? 


LString8 


LString? 
“LStrings 


CRString 


1SUStr ing 


Ver String 
MeString 
InstText 
DoneText 
ErrText 
Lisaere 
RunErr 
TwiceErr 
HDErr 
HFSErr 


RAMErr 


DirPas 


Tex thinda 


SSS8SS58 
Em Ew = wo E oo 


mc 


"To begin installation, click on the ‘“Instali’’ button at 
O,12,21, 210,192 
‘bottom of this window. Installation will take about one’ 
O,12,21,110,204 


‘minute, When it is finished, you will be able to use © 
Q,i2,21, 110,214 
“BOOK diskettes from any Macintoshr, as well as be ° 


O,12,21, 110,228 

“able to read and write and format vour can! 
2 

16,18,21,220,40 pFace Size ,Font,%,¥ 
“Lisagda ¢ rLength Text 
0,14,5,187,265 


“Copyright (0) iPB7/Be° 
0 


0,14,21, 210,280 
“The LISAshop’ 
if 


8,10,21,235,58 
‘Version i,0° 
0,12,21,186,79 
“by Charles T. Lukaszewski’ 
Z 
0 0,125,184 


riz, 
Installing Lisa@l@ to Machlorksr * 


12,0,130,184 
nstaliation Complete!  Rebooting * 


0,12,0,140,184 

“Error while installing!‘ 

Z 

0,12,0,100,184 

“Lisa@Q0 requires a Lisa-Zr/Macintosh = XLri’ 
Zz 

0,12,0,100,184 

“Lisa@QG  cannat be run from the hard disk!’ 
2 

0,12,0,120,184 

‘Lisa800 has already been installedi* 

2 

0,12,0,100,184 

“Could not find the hard disk!’ 


2 

0,12,0,100,184 

“HFS must be present!’ 

4 

0,12,0,100,184 

*Not encugh memory for installation! 
2 ; 


$46A,$482 $484, $490, $49E $486, $488, $400 
$4D2,$4EA,$4EC, $504, $506 $516, $520, $000 


ter 
we 
= 


i 
-! 


0,0 


95,104,330 ,406 
170,90 ,190,422 


the 


é 


“y* Lisagao 


TempB 
TempC 
RefNum(l 
RefNumi 
Junk 
Buf 
EvtRec 
PBRec 


DS.L 
DS.L 
DS.L 
DS.W 
DS.W 
DS.L 
0S.W 
DS.L 
DS.L 
END 


a 


295,140,325, 240 
$0000 


¥* Lisa800 Globals * 
: LAE RAAALE RARE LL ER EE 


Temp 


on 


pScratch memory 
yFile RefNum storage 


Two sector bu¢fer 
yEvent record storage 
yParameter Block recard 


